home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / graphics / raytracing / dust / previews / waterpreview2.bat < prev    next >
DOS Batch File  |  1995-03-12  |  460b  |  24 lines
  1. !clear
  2. ;this script creates <frames> pictures of a water-wave
  3. ;the plane should have a resultion of 60x60 points (or more)
  4. ;DustV1.84+ required
  5.  
  6. calc(frames=60)
  7. set(screen,t)
  8. set(screendepth,5)
  9. set(drawmode,color)
  10. avail
  11. load(1,plane)
  12. color(1,0,155,255)
  13. avail
  14. copy(1,3)
  15. avail
  16. set(windowpri,1)
  17. window(3,0,0,300,color,327,12,1.3333,true,false)
  18. avail
  19. set(checkmouse,f)
  20. for(i,1,frames)
  21.  waterframe(1,frames,i,3,3.0,9.0,0.0,0.0,0.8,6.0,2.0)
  22.  windowsave(1,pic.%)
  23. end
  24.